home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Resources / Backup, Restoration & File Management / SyncBack SE 5.1 / SyncBackSE_Setup.exe / {app} / ReSpace.vbs < prev    next >
Text File  |  2007-11-21  |  1KB  |  57 lines
  1. ' ReSpace.VBS written by Dave Wilkins 2007
  2.  
  3. ' complementary script to DeSpace.VBS
  4. ' (see comments in DeSpace.vbs for further details)
  5.  
  6. ' Note that any pre-existing underscores in filenames will be turned
  7. ' into spaces by ReSpace.VBS, if used, ie
  8.  
  9. ' original: My File_Name.ext
  10. ' DeSpaced: My_File_Name.ext
  11. ' ReSpaced: My File Name.ext
  12.  
  13. RootFolder = "X:\ROOT_FOLDER"
  14.  
  15. 'OR
  16.  
  17. ' Set objArgs = WScript.Arguments
  18. ' RootFolder = objArgs.Item(0) 
  19. ' note that any path argument with spaces must be wrapped in " "
  20.  
  21. RootFolder = RTB(RootFolder) ' remove trailing backslash (if any)
  22.  
  23. Set FSO = CreateObject("Scripting.FileSystemObject")
  24. Set Folders = FSO.GetFolder(RootFolder)
  25.  
  26. Recurse Folders
  27.  
  28. ' < = < =< = < = end of main logioc / start of subs & functions = > = > = > = >
  29.  
  30. Sub Recurse (ByRef Folders)
  31.  
  32.    Set SubFolders = Folders.SubFolders
  33.    Set Files = Folders.Files
  34.    
  35.    For Each File In Files
  36.        Temp = Replace(File.Name, "_", " ")
  37.        If File.Name <> Temp Then File.Name = Temp
  38.    Next
  39.  
  40.    For Each SubFolder In SubFolders
  41.        Temp = Replace(SubFolder.Name, "_", " ")
  42.        If SubFolder.Name <> Temp Then SubFolder.Name = Temp
  43.        Recurse SubFolder
  44.    Next
  45.  
  46. End Sub
  47.  
  48. Function RTB(sPath) ' Remove Trailing Backslash from Path in question
  49.  
  50.     Len_sPath = Len(sPath)
  51.     If Right(sPath, 1) = "\" Then    
  52.         sPath = Left(sPath, Len_sPath-1) 
  53.     End If
  54.     RTB = sPath
  55.  
  56. End Function
  57.